home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / util / libs / MultiReq.lha / MultiReq / C / lib / mr.lib.asm < prev   
Assembly Source File  |  1992-11-12  |  3KB  |  213 lines
  1. ;    source for library
  2.  
  3.     INCLUDE "exec/types.i"
  4.     INCLUDE "libraries/multireq.i"
  5.     INCLUDE "libraries/multireq_lib.i"
  6.  
  7.     public    _MultiReqBase
  8.  
  9. ;    StrLen(str)(a0)
  10.  
  11.     public    _StrLen
  12. _StrLen:
  13.     move.l    a6,-(sp)
  14.     move.l    8(sp),a0
  15.     move.l    _MultiReqBase,a6
  16.     jsr    _LVOStrLen(a6)
  17.     move.l    (sp)+,a6
  18.     rts
  19.  
  20. ;    StrCpy(src,dest)(a0/a1)
  21.  
  22.     public    _StrCpy
  23. _StrCpy:
  24.     move.l    a6,-(sp)
  25.     movem.l    8(sp),a0/a1
  26.     move.l    _MultiReqBase,a6
  27.     jsr    _LVOStrCpy(a6)
  28.     move.l    (sp)+,a6
  29.     rts
  30.  
  31. ;    StrCmp(str1,str2)(a0/a1)
  32.  
  33.     public    _StrCmp
  34. _StrCmp:
  35.     move.l    a6,-(sp)
  36.     movem.l    8(sp),a0/a1
  37.     move.l    _MultiReqBase,a6
  38.     jsr    _LVOStrCmp(a6)
  39.     move.l    (sp)+,a6
  40.     rts
  41.  
  42. ;    StrIns(src,dest)(a0/a1)
  43.  
  44.     public    _StrIns
  45. _StrIns:
  46.     move.l    a6,-(sp)
  47.     movem.l    8(sp),a0/a1
  48.     move.l    _MultiReqBase,a6
  49.     jsr    _LVOStrIns(a6)
  50.     move.l    (sp)+,a6
  51.     rts
  52.  
  53. ;    UpperCase(character)(d0)
  54.  
  55.     public    _UpperCase
  56. _UpperCase:
  57.     move.l    a6,-(sp)
  58.     move.l    8(sp),d0
  59.     move.l    _MultiReqBase,a6
  60.     jsr    _LVOUpperCase(a6)
  61.     move.l    (sp)+,a6
  62.     rts
  63.  
  64.  
  65. ;    TestPattern(wild,str)(a0/a1)
  66.  
  67.     public    _TestPattern
  68. _TestPattern:
  69.     move.l    a6,-(sp)
  70.     movem.l    8(sp),a0/a1
  71.     move.l    _MultiReqBase,a6
  72.     jsr    _LVOTestPattern(a6)
  73.     move.l    (sp)+,a6
  74.     rts
  75.  
  76.  
  77. ;    DelPort(port)(a1)
  78.  
  79.     public    _DelPort
  80. _DelPort:
  81.     move.l    a6,-(sp)
  82.     move.l    8(sp),a1
  83.     move.l    _MultiReqBase,a6
  84.     jsr    _LVODelPort(a6)
  85.     move.l    (sp)+,a6
  86.     rts
  87.  
  88. ;    CrtPort(name,pri)(a0,d0)
  89.  
  90.     public    _CrtPort
  91. _CrtPort:
  92.     move.l    a6,-(sp)
  93.     move.l    8(sp),a0
  94.     move.l    12(sp),d0
  95.     move.l    _MultiReqBase,a6
  96.     jsr    _LVOCrtPort(a6)
  97.     move.l    (sp)+,a6
  98.     rts
  99.  
  100. ;    GetCurrentPath(buff)(a0)
  101.  
  102.     public    _GetCurrentPath
  103. _GetCurrentPath:
  104.     move.l    a6,-(sp)
  105.     move.l    8(sp),a0
  106.     move.l    _MultiReqBase,a6
  107.     jsr    _LVOGetCurrentPath(a6)
  108.     move.l    (sp)+,a6
  109.     rts
  110.  
  111.  
  112. ;    DrawBox(rp,x1,y1,x2,y2,col1,col2)(a1,d0/d1/d2/d3/d4/d5)
  113.  
  114.     public    _DrawBox
  115. _DrawBox:
  116.     movem.l    d2-d5/a6,-(sp)
  117.     move.l    24(sp),a1
  118.     movem.l    28(sp),d0-d5
  119.     move.l    _MultiReqBase,a6
  120.     jsr    _LVODrawBox(a6)
  121.     movem.l    (sp)+,d2-d5/a6
  122.     rts
  123.  
  124.  
  125. ;    DrawFilledBox(rp,x1,y1,x2,y2,col1,col2,fillcol)(a1,d0/d1/d2/d3/d4/d5/d6)
  126.  
  127.     public    _DrawFilledBox
  128. _DrawFilledBox:
  129.     movem.l    d2-d6/a6,-(sp)
  130.     move.l    28(sp),a1
  131.     movem.l    32(sp),d0-d6
  132.     move.l    _MultiReqBase,a6
  133.     jsr    _LVODrawFilledBox(a6)
  134.     movem.l    (sp)+,d2-d6/a6
  135.     rts
  136.  
  137.  
  138. ;    DrawTexts(rp,textlist)(a1,a0)
  139.  
  140.     public    _DrawTexts
  141. _DrawTexts:
  142.     move.l    a6,-(sp)
  143.     move.l    8(sp),a1
  144.     move.l    12(sp),a0
  145.     move.l    _MultiReqBase,a6
  146.     jsr    _LVODrawTexts(a6)
  147.     move.l    (sp)+,a6
  148.     rts
  149.  
  150.  
  151. ;    DrawWinBorder(win,title)(a0/a1)
  152.  
  153.     public    _DrawWinBorder
  154. _DrawWinBorder:
  155.     move.l    a6,-(sp)
  156.     movem.l    8(sp),a0/a1
  157.     move.l    _MultiReqBase,a6
  158.     jsr    _LVODrawWinBorder(a6)
  159.     move.l    (sp)+,a6
  160.     rts
  161.  
  162.  
  163. ;    DrawGadgetBorder(gadgets,win,numgad)(a0/a1,d0)
  164.  
  165.     public    _DrawGadgetBorder
  166. _DrawGadgetBorder:
  167.     move.l    a6,-(sp)
  168.     movem.l    8(sp),a0/a1
  169.     move.l    16(sp),d0
  170.     move.l    _MultiReqBase,a6
  171.     jsr    _LVODrawGadgetBorder(a6)
  172.     move.l    (sp)+,a6
  173.     rts
  174.  
  175.  
  176. ;    InitFileReq(ptr,numlist)(a0,d0)
  177.  
  178.     public    _InitFileReq
  179. _InitFileReq:
  180.     move.l    a6,-(sp)
  181.     move.l    8(sp),a0
  182.     move.l    12(sp),d0
  183.     move.l    _MultiReqBase,a6
  184.     jsr    _LVOInitFileReq(a6)
  185.     move.l    (sp)+,a6
  186.     rts
  187.  
  188.  
  189. ;    FreeFileReq(filereq)(a0)
  190.  
  191.     public    _FreeFileReq
  192. _FreeFileReq:
  193.     move.l    a6,-(sp)
  194.     move.l    8(sp),a0
  195.     move.l    _MultiReqBase,a6
  196.     jsr    _LVOFreeFileReq(a6)
  197.     move.l    (sp)+,a6
  198.     rts
  199.  
  200.  
  201. ;    FileRequester(filereq,screen)(a0/a1)
  202.  
  203.     public    _FileRequester
  204. _FileRequester:
  205.     move.l    a6,-(sp)
  206.     movem.l    8(sp),a0/a1
  207.     move.l    _MultiReqBase,a6
  208.     jsr    _LVOFileRequester(a6)
  209.     move.l    (sp)+,a6
  210.     rts
  211.  
  212.     END
  213.